﻿Public Class xtf_ABMsoldadura

    Dim ulg_row As DataRow
    Dim obj_soldadura_ As cls_soldadura_ = Nothing
    Dim obj_obra As cls_centrocostoorden_
    Dim obj_linea As cls_linea_
    Dim obj_isometrico As cls_isometrico_

    Dim dtt_soldaduraensayo_ As New DataTable

    Public Sub New(ByVal obra As cls_centrocostoorden_, ByVal linea As cls_linea_, ByVal isometrico As cls_isometrico_, ByVal tipo As cls_soldadura_.enu_tipo)
        InitializeComponent()
        obj_obra = obra
        obj_linea = linea
        obj_isometrico = isometrico

        txt_linea.Text = linea.ToString
        txt_isometrico.Text = isometrico.ToString
        If Not IsNothing(linea) Then
            spe_alcance.Text = IIf(linea.alcance = 0, 10, linea.alcance)
        End If


        'Prepara grid y datasource ensayo02detalle----------------------------------------------------
        gdv_soldaduraensayo_.Tag = New Collections.Generic.List(Of cls_soldaduraensayo_)
        dtt_soldaduraensayo_ = New DataTable
        dtt_soldaduraensayo_.Columns.Add("Pedido", GetType(Boolean))
        dtt_soldaduraensayo_.Columns.Add("Ensayo", GetType(String))
        dtt_soldaduraensayo_.Columns.Add("Usuario", GetType(String))
        dtt_soldaduraensayo_.Columns.Add("Fecha", GetType(DateTime))
        dtt_soldaduraensayo_.Columns.Add("Objeto", GetType(cls_soldaduraensayo_))

        gdc_soldaduraensayo_.DataSource = dtt_soldaduraensayo_
        gdc_soldaduraensayo_.ForceInitialize()

        gdv_soldaduraensayo_.PopulateColumns()

        gdv_soldaduraensayo_.Columns("Objeto").Visible = False
        gdv_soldaduraensayo_.Columns("Ensayo").OptionsColumn.AllowEdit = False
        gdv_soldaduraensayo_.Columns("Usuario").OptionsColumn.AllowEdit = False
        gdv_soldaduraensayo_.Columns("Fecha").OptionsColumn.AllowEdit = False
        gdv_soldaduraensayo_.Columns("Fecha").DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        gdv_soldaduraensayo_.Columns("Fecha").DisplayFormat.FormatString = "dd/MM/yy HH:mm:ss"
        gdv_soldaduraensayo_.Columns("Fecha").SortMode = DevExpress.XtraGrid.ColumnSortMode.Value
        gdv_soldaduraensayo_.Columns("Fecha").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
        'gdv_soldaduraensayo_.Columns("Fecha").SortIndex = 1
        '-----------------------------------------------------------------------------------------------


        Cargarsoldaduratipo_()
        Cargarunidad_()
        opt_tipo.SelectedIndex = tipo
        AgregarValidaciones()
        Dim parametro As New cls_config_parametro_
        cbo_diametrounidad.EditValue = CInt(parametro.Buscar("unidadPulgadas").valor)
        'cbo_scheduleunidad.EditValue = CInt(parametro.Buscar("unidadPulgadas").valor)
        cbo_diametroequivalenteunidad.EditValue = CInt(parametro.Buscar("unidadMilimetros").valor)
        cbo_scheduleequivalenteunidad.EditValue = CInt(parametro.Buscar("unidadMilimetros").valor)


    End Sub

    Public Overrides Sub CargarObjetos()
        Cargarsoldaduratipo_()
    End Sub

    Private Sub Cargarsoldaduratipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_soldaduratipo.EditValue

        Dim soldaduratipo_ As New cls_soldaduratipo_
        soldaduratipo_.CargarTodos()
        cargarCombo(cbo_soldaduratipo, soldaduratipo_.Items, False, True)
        cbo_soldaduratipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_soldaduratipo.EditValue)
    End Sub

    Private Sub Cargarunidad_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_diametrounidad.EditValue

        Dim unidad_ As New cls_unidad_
        unidad_.CargarTodos()
        cargarCombo(cbo_diametrounidad, unidad_.Items)
        'cargarCombo(cbo_scheduleunidad, unidad_.Items)
        cargarCombo(cbo_diametroequivalenteunidad, unidad_.Items)
        cargarCombo(cbo_scheduleequivalenteunidad, unidad_.Items)
        'cbo_diametrounidad.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_diametrounidad.EditValue)
    End Sub
    Public Shadows Sub Nuevo(ByRef listado As Form)
        Try
            frm_listado = listado
            'Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - Nuevo"
            Me.Text = "Soldadura - Nuevo"
            obj_soldadura_ = New cls_soldadura_
            btn_Registro.Enabled = False
            If Not IsNothing(obj_isometrico) Then
                txt_numeracion1.Text = obj_soldadura_.numeracion1Xidisometrico(obj_isometrico.idisometrico) + 1
                armarCodigo()
                'txt_codigo.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
                'txt_codigo.Properties.Mask.EditMask = obj_isometrico.codigo & "-000"
                'txt_codigo.Properties.Mask.UseMaskAsDisplayFormat = True
                'txt_codigo.Properties.NullText = 0
                'txt_codigo.Text = obj_isometrico.codigo & "-000"
            End If
            Dim ensayosubtipo_ As New cls_ensayosubtipo_
            ensayosubtipo_.CargarEnOrden()
            If Not IsNothing(ensayosubtipo_.Items) Then
                For Each ensayosubtipo As cls_ensayosubtipo_ In ensayosubtipo_.Items
                    Dim ensayosoldadura As New cls_soldaduraensayo_
                    ensayosoldadura.idensayosubtipo = ensayosubtipo.idensayosubtipo
                    agregarItem(ensayosoldadura)
                Next
            End If


            Me.Show()

        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Shadows Sub Modificar(ByRef soldadura As cls_soldadura_, ByRef listado As Form, ByRef row As DataRow)
        If IsNothing(obj_soldadura_) Then
            obj_soldadura_ = New cls_soldadura_
        End If
        obj_soldadura_ = soldadura
        frm_listado = listado
        ulg_row = row : bbi_imprimir.Enabled = True


        'Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - " & obj_soldadura_.ToString
        Me.Text = "Soldadura - " & obj_soldadura_.ToString
        txt_ID.Text = obj_soldadura_.idsoldadura
        opt_tipo.SelectedIndex = obj_soldadura_.tipo

        txt_diametro.Text = obj_soldadura_.diametro
        cbo_diametrounidad.EditValue = obj_soldadura_.iddiametrounidad
        txt_schedule.Text = obj_soldadura_.schedule
        cbo_soldaduratipo.EditValue = obj_soldadura_.idsoldaduratipo
        opt_sefabricaen.SelectedIndex = obj_soldadura_.fabricadoen
        opt_tiponuevo.SelectedIndex = obj_soldadura_.tiponuevo
        chk_refuerzo.Checked = obj_soldadura_.refuerzo
        chk_soporte.Checked = obj_soldadura_.soporte
        txt_spool.Text = obj_soldadura_.spool
        spe_alcance.Text = obj_soldadura_.alcance
        txt_diametroquivalente.Text = obj_soldadura_.diametro2
        txt_espesor.Text = obj_soldadura_.espesor
        txt_numeracion1.Text = obj_soldadura_.numeracion1
        txt_numeracion2.Text = obj_soldadura_.numeracion2
        If obj_soldadura_.numeracion2 <> 0 Then txt_numeracion2.Enabled = True
        txt_numeracion3.Text = obj_soldadura_.numeracion3
        If obj_soldadura_.numeracion3 <> 0 Then txt_numeracion3.Enabled = True
        txt_numeracion4.Text = obj_soldadura_.numeracion4
        txt_codigo.Text = obj_soldadura_.codigo

        dtt_soldaduraensayo_.Clear()
        gdv_soldaduraensayo_.Tag.Clear()
        If Not IsNothing(obj_soldadura_.soldaduraensayo_) Then
            If Not IsNothing(obj_soldadura_.soldaduraensayo_.Items) Then
                For Each soldaduraensayo As cls_soldaduraensayo_ In obj_soldadura_.soldaduraensayo_.Items
                    agregarItem(soldaduraensayo)
                Next
            End If
        End If



        btn_Registro.Enabled = True

        Me.Show()

    End Sub

    Public Overrides Function ComprobarDatos() As Boolean
        If Not ControlarValidaciones() Then
            ErrManagerShow("000004", Me)
            Return False
        End If

        If txt_codigo.Text = "" Then
            ErrManagerShow("001041", Me)
            Return False
        End If

        If txt_spool.Text = "" Then
            ErrManagerShow("001044", Me)
            Return False
        End If

        If txt_diametroquivalente.Text = 0 Or txt_espesor.Text = 0 Then
            If ErrManagerShow("001047", Me) = Windows.Forms.DialogResult.Cancel Then
                Return False
            End If
        End If

        'REGISTROS DUPLICADOS----------------------------------------------------
        Dim col As New Collections.Generic.List(Of stc_campoValor)
        Dim comp1 As New stc_campoValor
        comp1.campo = "codigo"
        comp1.valor = txt_codigo.Text
        col.Add(comp1)
        If ComprobarDuplicado("soldadura_", col, "idsoldadura <> " & IIf(txt_ID.Text = "", 0, txt_ID.Text)) Then
            ErrManagerShow("000010", Me, " Dato: Código")
            Return False
        End If
        'REGISTROS DUPLICADOS----------------------------------------------------

        Return True
    End Function

    Public Shadows Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_soldadura_.tipo = opt_tipo.SelectedIndex
            obj_soldadura_.diametro = txt_diametro.Text
            obj_soldadura_.iddiametrounidad = cbo_diametrounidad.EditValue
            obj_soldadura_.schedule = txt_schedule.Text
            obj_soldadura_.idsoldaduratipo = cbo_soldaduratipo.EditValue
            obj_soldadura_.fabricadoen = opt_sefabricaen.SelectedIndex
            obj_soldadura_.tiponuevo = opt_tiponuevo.SelectedIndex
            obj_soldadura_.refuerzo = chk_refuerzo.Checked
            obj_soldadura_.soporte = chk_soporte.Checked
            obj_soldadura_.spool = txt_spool.Text
            obj_soldadura_.alcance = spe_alcance.Text
            obj_soldadura_.diametro2 = txt_diametroquivalente.Text
            obj_soldadura_.espesor = txt_espesor.Text
            obj_soldadura_.numeracion1 = txt_numeracion1.Text
            obj_soldadura_.numeracion2 = txt_numeracion2.Text
            obj_soldadura_.numeracion3 = txt_numeracion3.Text
            obj_soldadura_.numeracion4 = txt_numeracion4.Text
            obj_soldadura_.codigo = txt_codigo.Text

            obj_soldadura_.idobra = obj_obra.idcentrocostoorden
            obj_soldadura_.idlinea = obj_linea.idlinea
            obj_soldadura_.idisometrico = obj_isometrico.idisometrico

            'Guardo ProveedorArticulo------------------------------------------------------
            If IsNothing(obj_soldadura_.soldaduraensayo_) Then
                obj_soldadura_.soldaduraensayo_ = New cls_soldaduraensayo_
            End If
            If IsNothing(obj_soldadura_.soldaduraensayo_.Items) Then
                obj_soldadura_.soldaduraensayo_.Items = New Collections.Generic.List(Of cls_soldaduraensayo_)
            End If
            obj_soldadura_.soldaduraensayo_.Items = New Collections.Generic.List(Of cls_soldaduraensayo_)
            For Each Elemento As DataRow In dtt_soldaduraensayo_.Rows
                obj_soldadura_.soldaduraensayo_.Items.Add(Elemento("Objeto"))
            Next
            For Each Elemento As cls_soldaduraensayo_ In gdv_soldaduraensayo_.Tag
                If Elemento.idsoldaduraensayo <> 0 Then
                    Elemento.Eliminar(Elemento.idsoldaduraensayo)
                End If
            Next
            '---------------------------------------------------------------------


            If txt_ID.Text = "" Then
                obj_soldadura_.Nuevo(True)
                If frm_listado.Visible Then
                    ulg_row = CType(frm_listado, xtf_ABMsoldadura_).AgregarItem(obj_soldadura_)
                End If
                Modificar(obj_soldadura_, frm_listado, ulg_row)
            Else
                obj_soldadura_.Modificar()
                If frm_listado.Visible Then
                    CType(frm_listado, xtf_ABMsoldadura_).ModificarItem(obj_soldadura_, ulg_row)
                End If
                Modificar(obj_soldadura_, frm_listado, ulg_row)
            End If
            flg_Modificado = False : btn_Guardar.Enabled = False : bbi_guardar.Enabled = False
        End If
    End Sub

    Private Sub btn_Registro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Registro.Click
        If Not IsNothing(obj_soldadura_.registro) Then
            Dim ABMRegistro As New xtf_ABMRegistro(obj_soldadura_.registro)
            If ABMRegistro.ShowDialog() = Windows.Forms.DialogResult.OK Then
                flg_Modificado = True
            End If
        End If
    End Sub


    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        If flg_Modificado Then
            bol_comprobarCerrado = False
            Select Case ErrManagerShow("000001", Me)
                Case Windows.Forms.DialogResult.Yes
                    If ComprobarDatos() Then
                        btn_Guardar_Click(Nothing, Nothing)
                    Else
                        Exit Sub
                    End If
                Case Windows.Forms.DialogResult.Cancel : bol_comprobarCerrado = True
                    Exit Sub
            End Select
        End If
        Me.Dispose()
    End Sub

    Private Sub opt_tipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If opt_tipo.SelectedIndex <> 0 Then
            ErrManagerShow("000011", Me)
            opt_tipo.SelectedIndex = 0
        End If
    End Sub

    Private Sub chk_refuerzo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_refuerzo.CheckedChanged
        If chk_refuerzo.Checked Then
            chk_soporte.Checked = False
            txt_numeracion4.Enabled = True
            txt_numeracion4.Text = obj_soldadura_.numeracion4XidisometricoXnumeracion1(obj_isometrico.idisometrico, txt_numeracion1.Text) + 1
        Else
            txt_numeracion4.Enabled = False
            txt_numeracion4.Text = 0
        End If
        armarCodigo()
    End Sub

    Private Sub chk_soporte_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_soporte.CheckedChanged
        If chk_soporte.Checked Then
            chk_refuerzo.Checked = False
        End If
    End Sub

#Region "Proveedor Articulos"

    Private Sub tsb_ArticuloNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb_soldaduraensayoNuevo.Click
        Dim ABMsoldaduraensayo As New xtf_ABMsoldaduraensayo()
        If ABMsoldaduraensayo.ShowDialog = Windows.Forms.DialogResult.OK Then
            gdv_soldaduraensayo_.BeginDataUpdate()
            agregarItem(ABMsoldaduraensayo.obj_soldaduraensayo)
            gdv_soldaduraensayo_.EndDataUpdate()
        End If
    End Sub

    Private Sub agregarItem(ByRef obj_soldaduraensayo As cls_soldaduraensayo_)
        Dim Item As DataRow = dtt_soldaduraensayo_.NewRow
        Item("Pedido") = False
        If Not IsNothing(obj_soldaduraensayo.ensayosubtipo) Then
            Item("Ensayo") = obj_soldaduraensayo.ensayosubtipo.ToString
        End If
        If Not IsNothing(obj_soldaduraensayo.usuariopedido) Then
            Item("Usuario") = obj_soldaduraensayo.usuariopedido.ToString
            Item("Pedido") = True
        Else
            Item("Usuario") = ""
        End If
        If obj_soldaduraensayo.fechapedido = New System.DateTime(Now.Year, 1, 1) Then
            Item("Fecha") = DBNull.Value
        Else
            Item("Fecha") = obj_soldaduraensayo.fechapedido
        End If

        Item("Objeto") = obj_soldaduraensayo

        dtt_soldaduraensayo_.Rows.Add(Item)
    End Sub

    Private Sub gdv_soldaduraensayo__CellValueChanging(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles gdv_soldaduraensayo_.CellValueChanging
        Dim row As DataRow = gdv_soldaduraensayo_.GetDataRow(e.RowHandle)
        If e.Value = True Then
            Dim obj_soldaduraensayo As cls_soldaduraensayo_ = row("Objeto")
            obj_soldaduraensayo.idusuariopedido = UsuarioLOG.idusuario
            obj_soldaduraensayo.fechapedido = Now
            row("Pedido") = True
            row("Usuario") = obj_soldaduraensayo.usuariopedido.ToString
            row("Fecha") = obj_soldaduraensayo.fechapedido
            row("Objeto") = obj_soldaduraensayo
        Else
            Dim obj_soldaduraensayo As cls_soldaduraensayo_ = row("Objeto")
            obj_soldaduraensayo.idusuariopedido = 0
            obj_soldaduraensayo.usuariopedido = Nothing
            obj_soldaduraensayo.fechapedido = New System.DateTime(Now.Year, 1, 1)
            row("Pedido") = False
            row("Usuario") = ""
            row("Fecha") = DBNull.Value
            row("Objeto") = obj_soldaduraensayo
        End If
    End Sub

    '(4880-1080)

    Private Sub gridView1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles gdv_soldaduraensayo_.DoubleClick
        Dim view As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevExpress.XtraGrid.Views.Grid.GridView)
        Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
        DoRowDoubleClick(view, pt)
    End Sub

    Public Overridable Sub DoRowDoubleClick(ByVal view As DevExpress.XtraGrid.Views.Grid.GridView, ByVal pt As Point)
        Dim info As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = view.CalcHitInfo(pt)
        If info.InRow OrElse info.InRowCell Then
            Dim colCaption As String
            If info.Column Is Nothing Then
                colCaption = "N/A"
            Else
                colCaption = info.Column.GetCaption()
            End If
            tsb_soldaduraensayoModificar.PerformClick()
        End If
    End Sub

    Private Sub tsb_ArticulosModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb_soldaduraensayoModificar.Click
        If gdv_soldaduraensayo_.SelectedRowsCount > 0 Then
            Dim ABMsoldaduraensayo As New xtf_ABMsoldaduraensayo()
            ABMsoldaduraensayo.Modificar(gdv_soldaduraensayo_.GetDataRow(gdv_soldaduraensayo_.GetSelectedRows(0))("Objeto"))
            If ABMsoldaduraensayo.ShowDialog = Windows.Forms.DialogResult.OK Then
                gdv_soldaduraensayo_.BeginDataUpdate()
                Dim Item As DataRow = gdv_soldaduraensayo_.GetDataRow(gdv_soldaduraensayo_.GetSelectedRows(0))
                Item("Pedido") = True
                Item("Ensayo") = ABMsoldaduraensayo.obj_soldaduraensayo.ensayosubtipo.ToString
                Item("Usuario") = ABMsoldaduraensayo.obj_soldaduraensayo.idusuariopedido
                Item("Fecha") = ABMsoldaduraensayo.obj_soldaduraensayo.fechapedido
                Item("Objeto") = ABMsoldaduraensayo.obj_soldaduraensayo

                gdv_soldaduraensayo_.EndDataUpdate()
            End If
        End If
    End Sub

    Private Sub tsb_ArticuloEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb_soldaduraensayoEliminar.Click
        If gdv_soldaduraensayo_.SelectedRowsCount > 0 Then
            gdv_soldaduraensayo_.BeginDataUpdate()
            gdv_soldaduraensayo_.Tag.add(gdv_soldaduraensayo_.GetDataRow(gdv_soldaduraensayo_.GetSelectedRows(0))("Objeto"))
            dtt_soldaduraensayo_.Rows.Remove(gdv_soldaduraensayo_.GetDataRow(gdv_soldaduraensayo_.GetSelectedRows(0)))
            gdv_soldaduraensayo_.EndDataUpdate()
        End If
    End Sub
#End Region

    Private Sub txt_diametro_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_diametro.EditValueChanged
        cargarTioga()
    End Sub

    Private Sub cargarTioga()
        Dim tioga As New cls_ptioga_
        txt_espesor.Text = 0
        txt_diametroquivalente.Text = 0
        If txt_schedule.Text = "" Then
            If tioga.CargarXdiametronominalp(CDec(txt_diametro.Text)) Then
                txt_diametroquivalente.Text = tioga.Items(0).odm
            End If
        Else
            If tioga.CargarXdiametronominalpXschedule(txt_diametro.Text, txt_schedule.Text) Then
                txt_diametroquivalente.Text = tioga.Items(0).odm
                txt_espesor.Text = tioga.Items(0).espesorm
            End If
        End If
    End Sub

    Private Sub txt_schedule_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_schedule.EditValueChanged
        cargarTioga()
    End Sub

    Private Sub armarCodigo()
        Dim codigo As String = ""
        If Not IsNothing(obj_isometrico) Then
            codigo &= obj_isometrico.codigo & "-"
        End If
        codigo &= txt_numeracion1.Text
        If txt_numeracion2.Text <> "" Then
            If txt_numeracion2.Text <> 0 Then
                codigo &= "-NC" & txt_numeracion2.Text
            End If
        End If
        If txt_numeracion3.Text <> "" Then
            If txt_numeracion3.Text <> 0 Then
                codigo &= "-NI" & txt_numeracion3.Text
            End If
        End If
        If txt_numeracion4.Text <> "" Then
            If txt_numeracion4.Text <> 0 Then
                codigo &= "-P" & txt_numeracion4.Text
            End If
        End If
        txt_codigo.Text = codigo
    End Sub

    Private Sub opt_tiponuevo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_tiponuevo.SelectedIndexChanged
        If Me.Visible Then
            Select Case opt_tiponuevo.SelectedIndex
                Case 0 'Nuevo
                    txt_numeracion1.Text = obj_soldadura_.numeracion1Xidisometrico(obj_isometrico.idisometrico) + 1
                    txt_numeracion2.Enabled = False
                    txt_numeracion3.Enabled = False
                    txt_numeracion2.Text = 0
                    txt_numeracion3.Text = 0
                Case 1 'NC
                    txt_numeracion2.Enabled = True
                    txt_numeracion3.Enabled = False
                    txt_numeracion3.Text = 0
                    txt_numeracion2.Text = obj_soldadura_.numeracion2XidisometricoXnumeracion1(obj_isometrico.idisometrico, txt_numeracion1.Text) + 1
                Case 2 'NI
                    txt_numeracion3.Text = obj_soldadura_.numeracion3XidisometricoXnumeracion1(obj_isometrico.idisometrico, txt_numeracion1.Text) + 1
                    txt_numeracion2.Text = 0
                    txt_numeracion2.Enabled = False
                    txt_numeracion3.Enabled = True
            End Select
            armarCodigo()
        End If

    End Sub

    Private Sub txt_numeracion1_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_numeracion1.EditValueChanged, txt_numeracion2.EditValueChanged, txt_numeracion4.EditValueChanged, txt_numeracion3.EditValueChanged
        opt_tiponuevo_SelectedIndexChanged(Nothing, Nothing)
        armarCodigo()
    End Sub
End Class